home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / cmmo66e.zip / COMMO.MAC < prev    next >
Text File  |  1996-05-26  |  23KB  |  551 lines
  1.  
  2.   Most of the macros in this file support {COMMO} features, such as file
  3.   transfers and VT102 emulation.  Others are provided as examples and may need
  4.   to be modified to work for you.  More examples are shown in SAMPLES.MAC.
  5.  
  6.   See MACRO.DOC for a complete guide to programming {COMMO} macros.  Press
  7.   PgDn to view the remainder of this file.
  8.  
  9.  
  10.   ASCII Upload macro, press Alt-A
  11.   ────────────────────────────────────────────────────────────────────────────
  12.   {:ala} {ascii %uldir\} {}             ASCII Upload with upload path
  13.  
  14.  
  15.   Macro to review capture file, press Shift-F8                Program required
  16.   ────────────────────────────────────────────────────────────────────────────
  17.   {:sf8} {exec LIST %_cap /e} {}  (aka Scrollback using no RAM)       LIST.COM
  18.  
  19.  
  20.   Simple login macro, press F2
  21.   ────────────────────────────────────────────────────────────────────────────
  22.   {:nf2} {send First|~~Last|~~~~%_pas|} {}           PCBoard, Wildcat, etc.
  23.  
  24.  
  25.   Macro to list download directory, press Alt-F10
  26.   ────────────────────────────────────────────────────────────────────────────
  27.   {:af0} {exec-w dir %dldir /w} {}                 Download directory
  28.  
  29.  
  30.   Macros to load VT102/VT220/PINE keyboard files and set VT emulation
  31.   ────────────────────────────────────────────────────────────────────────────
  32.   {:vt102} {parm ,,,V} {goto ,vt102.mac}   Linked Macro is "vt102"
  33.   {:vt220} {parm ,,,V} {goto ,vt220.mac}   Linked Macro is "vt220"
  34.   {:pine}  {parm ,,,V} {goto ,pine.mac}    Linked Macro is "pine"
  35.  
  36.  
  37.   Macro to login to a PCBoard (put "pcb" in Dialing Directory macro field)
  38.   ────────────────────────────────────────────────────────────────────────────
  39.   {:pcb} {capture y,c:\commo\pcb.cap} {asci ,}
  40.          {setv ss_r,~|}
  41.          {setlook 60,hng}
  42.          {sslook ss_r,change?}
  43.          {lookfor graphics} {send y|}
  44.          {setlook 60,hng,6,n|}
  45.          {lookfor first name?}
  46.          {send First Last|~%_pas|}          <= your name here
  47.          {lookfor Main Board Command?} {}
  48.   {:hng} {hangup y} {stop}
  49.  
  50.  
  51.   CompuServe login macro (put "cis" in Dialing Directory macro field)
  52.   ────────────────────────────────────────────────────────────────────────────
  53.   {:cis} {setlook 45,hng,2,^c} {send ^c}
  54.          {capt y,c:\commo\cis.%_day}
  55.          {lookfor User ID:} {send XXXXX,XXX|}  <= Change to your user ID
  56.          {setl 20,hng} {lookfor Password:} {send %_pas|} {}
  57.  
  58.  
  59.   GEnie login macros
  60.   ────────────────────────────────────────────────────────────────────────────
  61.   {:genie-t}  (using Telnet)
  62.          {setlook 90,hng} {capt y,c:\commo\genie.%_day}
  63.          {asci ,>} {local y} {send ~H~H~H}
  64.          {lookfor u#} {send XXXXXXXX,%_pas|} {}  <= Change to your user #
  65.  
  66.   {:genie-s}  (using Sprintnet)
  67.          {setlook 90,hng} {capt y,c:\commo\genie.%_day}
  68.          {asci ,>} {local y} {lookfor connect} {send @H|}
  69.          {lookfor terminal=} {send d1|} {lookfor @} {send c genie|}
  70.          {lookfor u#} {send XXXXXXXX,%_pas|} {}  <= Change to your user #
  71.  
  72.  
  73.   Doorway Mode macro (key must be defined in COMMO.SET)
  74.   ────────────────────────────────────────────────────────────────────────────
  75.   {:al=} {doorway} {}                   Toggle Doorway Mode
  76.  
  77.  
  78.   Macro to report {COMMO} version number
  79.   ────────────────────────────────────────────────────────────────────────────
  80.   {:alv} {info-d2s0 Version is %_ver} {}
  81.  
  82.  
  83.   DOWNLOAD (receive) menu macro
  84.   ────────────────────────────────────────────────────────────────────────────
  85.   {:pgd} {:mpd}
  86.    {setv _menu1,  Press "M" to change Zmodem receive mode}
  87.    {setv _menu3, Z = Zmodem batch (mode=%zr_mode)        Internal}
  88.    {setv _menu4, Y = Ymodem batch                 Internal}
  89.    {setv _menu5, G = Ymodem-G batch               Internal}
  90.    {setv _menu6, X = Xmodem-CRC (or old Ymodem)   Internal}
  91.    {setv _menu7, O = Xmodem-G                     Internal}
  92.    {setv _menu8, S = Xmodem csum                  Internal}
  93.    {setv _menu9, B = CompuServe B, B+             Overlay}
  94.   {setv _menu11,   External Protocols (program required)}
  95.   {setv _menu13, H = HS/Link              using HSLINK.EXE}
  96.   {setv _menu14, K = Kermit               using KERMIT.EXE}
  97.    {setv _mhelp,phld}
  98.    {setv _mlabel,,pcbr,,,,,pygr,phbr,,,pckr,,pmzm,,pxgr,,,,px2r,,,,,px1r,pybr,pzbr}
  99.    {setv _mcolor,%menu_clr}
  100.    {menu 18,47,DOWNLOAD Protocol Menu  [F1] Help} {return}
  101.  
  102.   Help        {:phld} {help z} {goto mpd}
  103.   Zmodem      {:pzbr} {setv pr_alarm} {setv pr_down,%dldir} {call z_recv} {}
  104.   Y batch     {:pybr} {setv pr_alarm} {setv pr_down,%dldir} {call yb_recv} {}
  105.   Y-G batch   {:pygr} {setv pr_alarm} {setv pr_down,%dldir} {call yg_recv} {}
  106.   X CRC       {:px1r} {setv pr_alarm} {call gfnd} {call xc_recv} {}
  107.   X-G         {:pxgr} {setv pr_alarm} {call gfnd} {call xg_recv} {}
  108.   X csum      {:px2r} {setv pr_alarm} {call gfnd} {call xs_recv} {}
  109.   HSLink      {:phbr} {setv pr_alarm} {setv pr_down,%dldir} {setv pr_file}
  110.                       {info-q0s0 Any files to upload?}
  111.                       {ifco ,phbr_1} {call gfnu}
  112.               {:phbr_1} {call h_recv} {}
  113.   Kermit      {:pckr} {setv pr_alarm} {setv pr_down,%dldir} {call k_recv} {}
  114.   CIS BPlus   {:pcbr} {setv pr_alarm} {setv pr_down,%dldir} {call b_recv} {}
  115.  
  116.   {:gfnd} {setv pr_file,%dldir\} {input pr_file,Enter a filename to DOWNLOAD}
  117.           {ifex %pr_file,,gf_y} {info-q0 File exists, overwrite?}
  118.           {ifco gf_y} {send ^x^x^x^x^x^x^x^x^h^h^h^h^h^h^h^h^h^h} {}
  119.   {:gf_y} {return}
  120.  
  121.  
  122.   UPLOAD (send) menu macro
  123.   ────────────────────────────────────────────────────────────────────────────
  124.   {:pgu} {:mpu}
  125.    {setv _menu1, Z = Zmodem batch                 Internal}
  126.    {setv _menu2, Y = Ymodem batch                 Internal}
  127.    {setv _menu3, G = Ymodem-G batch               Internal}
  128.    {setv _menu4, X = Xmodem-1K (old Ymodem)       Internal}
  129.    {setv _menu5, O = Xmodem-G                     Internal}
  130.    {setv _menu6, S = Xmodem                       Internal}
  131.    {setv _menu7, A = ASCII Upload                 Internal}
  132.    {setv _menu8, B = CompuServe B, B+             Overlay}
  133.    {setv _menu10,   External Protocols (program required)}
  134.   {setv _menu12, H = HS/Link              using HSLINK.EXE}
  135.   {setv _menu13, K = Kermit               using KERMIT.EXE}
  136.    {setv _mhelp,phlu}
  137.    {setv _mlabel,paus,pcbs,,,,,pybs,phbs,,,pcks,,,,px1s,,,,px2s,,,,,px1s,pybs,pzbs}
  138.    {setv _mcolor,%menu_clr}
  139.    {menu 17,47,UPLOAD Protocol Menu  [F1] Help} {return}
  140.  
  141.   Help        {:phlu} {help z} {goto mpu}
  142.   Y batch     {:pybs} {setv pr_alarm} {call gfnu} {call yb_send} {}
  143.   X-1K        {:px1s} {setv pr_alarm} {call gfnu_x} {call xk_send} {}
  144.   X           {:px2s} {setv pr_alarm} {call gfnu_x} {call x_send} {}
  145.   ASCII       {:paus} {call gfnu_x} {asci %pr_file} {}
  146.   Zmodem      {:pzbs} {setv pr_alarm} {call gfnu} {call z_send} {}
  147.   HS/Link     {:phbs} {setv pr_alarm} {setv pr_down,%dldir} {call gfnu}
  148.                       {call h_send} {}
  149.   Kermit      {:pcks} {setv pr_alarm} {call gfnu_x} {call k_send} {}
  150.   CIS BPlus   {:pcbs} {setv pr_alarm} {call gfnu_x} {call b_send} {}
  151.  
  152.   {:gfnu}   {call sel_delsend}
  153.             {setv pr_file,%uldir\}
  154.             {inst sel_up,y} {comp _pos,1} {ifco gfnu_s}
  155.   {:gfnu_f} {input pr_file,Filename to UPLOAD (end with "\" for picklist)}
  156.             {comp pr_file} {ifco gfnu_s}
  157.             {subs temp,-1,1,%pr_file}
  158.             {comp temp,\} {ifco gfnu_s}
  159.             {ifex %pr_file,,gfnu_n} {return}
  160.   {:gfnu_n} {info-d2 File not found} {goto gfnu_f}
  161.   {:gfnu_s} {inst sel_pns,y} {comp _pos,1} {ifco gfnu_p}
  162.             {call select} {goto gfnu_t}
  163.   {:gfnu_p} {exec-d %protodir\COMMOPNS.EXE %_hom%^(send^).lst -D%pr_file -S%_mod}
  164.             {setv pr_file,@%_hom%^(send^).lst}
  165.   {:gfnu_t} {comp pr_file} {ifco gfnu_c}
  166.             {ifexist %_hom^(send^).lst,,gfnu_c} {return}
  167.   {:gfnu_c} {send ^x^x^x^x^x^x^x^x^h^h^h^h^h^h^h^h^h^h}
  168.             {inform-s0d1 No files to send} {}
  169.  
  170.   {:gfnu_x} {call gfnu} {ifex %_hom^(send^).lst,,gfnu_r}
  171.             {ropen %_hom^(send^).lst,gfnu_c}
  172.   {:gfnu_a} {read pr_file} {comp pr_file} {ifco gfnu_a} {rclose}
  173.   {:gf